﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%

dim act,bi,bit,rs,sql
Set Rs = Server.CreateObject("Adodb.Recordset")

	act=Request.QueryString("act")
	if act="" then act=1
	if not isnumeric(act) then act=1
	act=clng(act)
bi=qingtian.bi
bit=qingtian.bit
select case v
case "0" 
we0="<br/>"
%>
<card title="掌上商城"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>掌上商城</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select		

%><%
		

		if sid="Null" then
		%><%=dao%><%=zi%>欢迎你<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/user/shangchen.asp?act=<%=act%>">注册/登陆</a><%=we0%><%
		else
		qingtian.info
		end if
%><%=qingtian.qingsav("325")%><%
		if act=1 then 
%><%=dao%><%=bi%>购物区|<a href="shangchen.asp?act=2&amp;sid=<%=sidd%>"><%=bit%>购物区</a><%=we0%><%=sou%><a href="daolieb.asp?bid=1&amp;act=3&amp;sid=<%=sidd%>">礼物</a>|<a href="daolieb.asp?bid=9&amp;act=1&amp;sid=<%=sidd%>">道具</a>|<a href="friendt.asp?act=7&amp;sid=<%=sidd%>">排行</a>|<a href="search.asp?sid=<%=sidd%>">搜索</a><%=we0%>
<%else%><%=dao%><%=qingtian.bit%>购物区|<a href="shangchen.asp?act=1&amp;sid=<%=sidd%>"><%=qingtian.bi%>购物区</a><%=we0%><%=sou%><a href="daolieb.asp?bid=1&amp;act=4&amp;sid=<%=sidd%>">礼物</a>|<a href="daolieb.asp?bid=9&amp;act=2&amp;sid=<%=sidd%>">道具</a>|<a href="friendt.asp?act=7&amp;sid=<%=sidd%>">排行</a>|<a href="search.asp?act=2&amp;sid=<%=sidd%>">搜索</a><%=we0%>
<%end if%>
<%=dao%>==新品上架==<%=we0%><%=we%>
<%
Sql1 = "select top 4 [nid],[name],[tupic],[paym],[zbit],[zmeili],[ztili],[zjifen],[zvip] from [qingtian_shangpin] where [bip]="&act&" or [bip]="&act+2&" or [bip]="&act+4&" order by [id] desc"
		Rs.Open Sql1,conn,1,1
		if not (rs.bof and rs.eof) then
For i=1 to  rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
%>
<img src="<%=rs(2)%>" alt='' noselect = "true" /><a href="viewdaoju.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a>[<a href="pay.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>">购买</a>]<br/>
<% if rs(5)<>0 then %>
魅力:+<%=zi%><%=rs(5)%><%=zi0%>,
<% end if %>
<% if rs(6)<>0 then %>
体力:+<%=zi%><%=rs(6)%><%=zi0%>,
<% end if %>
<% if rs(7)<>0 then %>
积分:+<%=zi%><%=rs(7)%><%=zi0%>,
<% end if %>
<% if rs(4)<>0 then %>
<%=qingtian.bi%>:+<%=zi%><%=rs(4)%><%=zi0%>,
<% end if %>
<% if rs(8)<>0 then %>
vip:+<%=zi%><%=rs(8)%><%=zi0%>个月,
<% end if %>
<% if act<>2 then %>
售价:<%=zi%><%=rs(3)%><%=bi%><%=zi0%>
<% else %>
售价:<%=zi%><%=rs(3)%><%=bit%><%=zi0%>
<% end if %>
<br/>


<%			
	 	Rs.MoveNext
	  	Next
		end if
		Rs.close

%>
<%=we1%><%=dao%>==精品推荐==<%=we0%><%=we%>
<%
Sql1 = "select top 4 [nid],[name],[tupic],[paym],[zbit],[zmeili],[ztili],[zjifen],[zvip] from [qingtian_shangpin] where [tuijian]=1 and ([bip]="&act&" or [bip]="&act+2&" or [bip]="&act+4&") order by [id] desc"
		Rs.Open Sql1,conn,1,1
		if not (rs.bof and rs.eof) then
For i=1 to  rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
%>
<img src="<%=rs(2)%>" alt='' noselect = "true" /><a href="viewdaoju.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a>[<a href="pay.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>">购买</a>]<br/>
<% if rs(5)<>0 then %>
魅力:+<%=zi%><%=rs(5)%><%=zi0%>,
<% end if %>
<% if rs(6)<>0 then %>
体力:+<%=zi%><%=rs(6)%><%=zi0%>,
<% end if %>
<% if rs(7)<>0 then %>
积分:+<%=zi%><%=rs(7)%><%=zi0%>,
<% end if %>
<% if rs(4)<>0 then %>
<%=qingtian.bi%>:+<%=zi%><%=rs(4)%><%=zi0%>,
<% end if %>
<% if rs(8)<>0 then %>
vip:+<%=zi%><%=rs(8)%><%=zi0%>个月,
<% end if %>
<% if act<>2 then %>
售价:<%=zi%><%=rs(3)%><%=bi%><%=zi0%>
<% else %>
售价:<%=zi%><%=rs(3)%><%=bit%><%=zi0%>
<% end if %>
<br/>


<%			
	 	Rs.MoveNext
	  	Next
		end if
		Rs.close

%>
<%=we1%><%=dao%>==热销商品==<%=we0%><%=we%>
<%
Sql1 = "select top 4 [nid],[name],[tupic],[paym],[zbit],[zmeili],[ztili],[zjifen],[zvip] from [qingtian_shangpin] where [recont]>0 and ([bip]="&act&" or [bip]="&act+2&" or [bip]="&act+4&") order by [recont] desc"
		Rs.Open Sql1,conn,1,1
		if not (rs.bof and rs.eof) then
For i=1 to  rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
%>
<img src="<%=rs(2)%>" alt='' noselect = "true" /><a href="viewdaoju.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs(1))%></a>[<a href="pay.asp?nid=<%=rs(0)%>&amp;sid=<%=sidd%>">购买</a>]<br/>
<% if rs(5)<>0 then %>
魅力:+<%=zi%><%=rs(5)%><%=zi0%>,
<% end if %>
<% if rs(6)<>0 then %>
体力:+<%=zi%><%=rs(6)%><%=zi0%>,
<% end if %>
<% if rs(7)<>0 then %>
积分:+<%=zi%><%=rs(7)%><%=zi0%>,
<% end if %>
<% if rs(4)<>0 then %>
<%=qingtian.bi%>:+<%=zi%><%=rs(4)%><%=zi0%>,
<% end if %>
<% if rs(8)<>0 then %>
vip:+<%=zi%><%=rs(8)%><%=zi0%>个月,
<% end if %>
<% if act<>2 then %>
售价:<%=zi%><%=rs(3)%><%=bi%><%=zi0%>
<% else %>
售价:<%=zi%><%=rs(3)%><%=bit%><%=zi0%>
<% end if %>
<br/>


<%			
	 	Rs.MoveNext
	  	Next
		end if
		Rs.close
                set rs=nothing
if act=1 then 
%>
<%=we1%><%=dao%>==商城导购==<%=we0%><%=we%>
<%=zi%>+礼物<%=zi0%><br/>
<a href="daolieb.asp?bid=1&amp;act=3&amp;sid=<%=sidd%>">鲜花</a>.<a href="daolieb.asp?bid=2&amp;act=3&amp;sid=<%=sidd%>">爱情</a>.<a href="daolieb.asp?bid=3&amp;act=3&amp;sid=<%=sidd%>">食品</a>.<a href="daolieb.asp?bid=4&amp;act=3&amp;sid=<%=sidd%>">服饰</a>.<a href="daolieb.asp?bid=5&amp;act=3&amp;sid=<%=sidd%>">证件</a>.<a href="daolieb.asp?bid=6&amp;act=3&amp;sid=<%=sidd%>">魔法</a>.<a href="daolieb.asp?bid=7&amp;act=3&amp;sid=<%=sidd%>">节日</a>.<a href="daolieb.asp?bid=8&amp;act=3&amp;sid=<%=sidd%>">玩具</a><br/>
<%=zi%>+道具<%=zi0%><br/>
<a href="daolieb.asp?bid=9&amp;act=1&amp;sid=<%=sidd%>">体力道具</a>.<a href="daolieb.asp?bid=10&amp;act=1&amp;sid=<%=sidd%>">魅力道具</a>.<a href="daolieb.asp?bid=11&amp;act=1&amp;sid=<%=sidd%>">趣味道具</a>.<a href="daolieb.asp?bid=16&amp;act=5&amp;sid=<%=sidd%>">头像/男</a>.<a href="daolieb.asp?bid=17&amp;act=5&amp;sid=<%=sidd%>">头像/女</a>
<%else%>
<%=we1%><%=dao%>==商城导购==<%=we0%><%=we%>
<%=zi%>+礼物<%=zi0%><br/>
<a href="daolieb.asp?bid=1&amp;act=4&amp;sid=<%=sidd%>">鲜花</a>.<a href="daolieb.asp?bid=2&amp;act=4&amp;sid=<%=sidd%>">爱情</a>.<a href="daolieb.asp?bid=3&amp;act=4&amp;sid=<%=sidd%>">食品</a>.<a href="daolieb.asp?bid=4&amp;act=4&amp;sid=<%=sidd%>">服饰</a>.<a href="daolieb.asp?bid=5&amp;act=4&amp;sid=<%=sidd%>">证件</a>.<a href="daolieb.asp?bid=6&amp;act=4&amp;sid=<%=sidd%>">魔法</a>.<a href="daolieb.asp?bid=7&amp;act=4&amp;sid=<%=sidd%>">节日</a>.<a href="daolieb.asp?bid=8&amp;act=4&amp;sid=<%=sidd%>">玩具</a><br/>
<%=zi%>+道具<%=zi0%><br/>
<a href="daolieb.asp?bid=9&amp;act=2&amp;sid=<%=sidd%>">体力道具</a>.<a href="daolieb.asp?bid=10&amp;act=2&amp;sid=<%=sidd%>">魅力道具</a>.<a href="daolieb.asp?bid=11&amp;act=2&amp;sid=<%=sidd%>">趣味道具</a>.<a href="daolieb.asp?bid=12&amp;act=2&amp;sid=<%=sidd%>">积分道具</a>.<a href="daolieb.asp?bid=13&amp;act=2&amp;sid=<%=sidd%>">货币道具</a>.<a href="daolieb.asp?bid=14&amp;act=2&amp;sid=<%=sidd%>">VIP道具</a>.<a href="daolieb.asp?bid=15&amp;act=6&amp;sid=<%=sidd%>">极品勋章</a>
<%end if%>
<%=we0%><%=qingtian.qingsav("327")%><%=hr%>
<%=sou%><a href="fans.asp?sid=<%=sidd%>">我的好友</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="index.asp?sid=<%=sidd%>">地盘</a><%=we0%>  

<%
end Function
%>
